American History: Interactive Maps & User's Guide/American History: Interactive Maps & User's Guide.iso/pc/Quit.dxr/00006.ls

Text File | 2000-01-25 | 4.5 KB | 129 lines

on mouseDown
  global logonWindow, gMainPath, gQuitButtonPressed, gCurrentComponent, gBookMark, gLanguagePref, gSystemVolumeLevel, gVdPort, gVdPlayer, gInitPath
  set spriteNumber to the clickOn
  set buttonPressed to the name of member the memberNum of sprite spriteNumber
  set the memberNum of sprite spriteNumber to member (buttonPressed & "down")
  updateStage()
  repeat while the mouseDown = 1
    if rollOver(spriteNumber) = 0 then
      set the memberNum of sprite spriteNumber to member buttonPressed
      updateStage()
      exit
    end if
  end repeat
  set the memberNum of sprite spriteNumber to member buttonPressed
  updateStage()
  case buttonPressed of
    "cancel":
      go("Return")
    "ok":
      if (gCurrentComponent = "I") and (the visible of sprite 10 = 1) then
        tell the stage
          printNotebook()
        end tell
      else
        if (gCurrentComponent = "S") and (the visible of sprite 10 = 1) then
          tell the stage
            PrintSocialStudies()
          end tell
        else
          if (gCurrentComponent = "T") and (the visible of sprite 10 = 1) then
            tell the stage
              PrintSocialStudies()
            end tell
          end if
        end if
      end if
      case gQuitButtonPressed of
        0:
          exit
        1, (-1), 10:
          set lFileName to "eappref.dat"
          set writester to new(xtra("fileio"))
          put "gInitPath =" && gInitPath
          put "gSystemVolumeLevel =" && gSystemVolumeLevel
          openFile(writester, gInitPath & lFileName, 2)
          set objStatus to status(writester)
          if (objStatus = -43) or (objStatus = -37) then
            createFile(writester, gInitPath & lFileName)
            set objStatus to status(writester)
            openFile(writester, gInitPath & lFileName, 2)
            set objStatus to status(writester)
          end if
          set objStatus to status(writester)
          if objStatus = 0 then
            set lOutText to EMPTY
            set lOutText to gLanguagePref
            if gSystemVolumeLevel < 10 then
              set soundString to "00" & string(gSystemVolumeLevel)
            else
              if gSystemVolumeLevel < 100 then
                set soundString to "0" & string(gSystemVolumeLevel)
              else
                set soundString to string(gSystemVolumeLevel)
              end if
            end if
            put "soundString =" && soundString
            set lOutText to lOutText & soundString
            set lOutText to lOutText & string(gVdPort)
            set lOutText to lOutText & string(gVdPlayer)
            setPosition(writester, 0)
            writeString(writester, lOutText)
            closeFile(writester)
            set writester to 0
          else
            alert("Problem writing Preference Information")
            put status(writester)
          end if
          tell the stage
            go(1, gMainPath & "eapquit")
          end tell
        2:
          set lFileName to "eappref.dat"
          set writester to new(xtra("fileio"))
          openFile(writester, gInitPath & lFileName, 2)
          if (status(writester) = -43) or (status(writester) = -37) then
            createFile(writester, gInitPath & lFileName)
            openFile(writester, gInitPath & lFileName, 2)
          end if
          if status(writester) = 0 then
            set lOutText to EMPTY
            set lOutText to gLanguagePref
            if gSystemVolumeLevel < 10 then
              set soundString to "00" & string(gSystemVolumeLevel)
            else
              if gSystemVolumeLevel < 100 then
                set soundString to "0" & string(gSystemVolumeLevel)
              else
                set soundString to string(gSystemVolumeLevel)
              end if
            end if
            set lOutText to lOutText & soundString
            set lOutText to lOutText & string(gVdPort)
            set lOutText to lOutText & string(gVdPlayer)
            setPosition(writester, 0)
            writeString(writester, lOutText)
            closeFile(writester)
            set writester to 0
          else
            alert("Problem writing Preference Information")
          end if
          tell the stage
            go(1, gMainPath & "eapquit")
          end tell
        3, 11:
          tell the stage
            go(1, gMainPath & "toolbook")
          end tell
        4:
          setBookmark()
          tell the stage
            go(1, gMainPath & "toolbook")
          end tell
      end case
      if objectp(logonWindow) then
        forget(logonWindow)
      end if
  end case
end